/* GUI CONVERTED from sqlinfrm.i (converter v1.75) Sat Aug 12 17:34:29 2000 */
/* sqlinfrm.i - DEFINE FRAMES SHARED BY SALES QUOTES                    */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/*F0PN*/ /*V8:ConvertMode=Maintenance                                   */
/*N014*/ /*V8:RunMode=Character,Windows                                 */
/* REVISION: 7.0      LAST MODIFIED: 04/15/92   BY: dld *F382**/
/* REVISION: 7.3      LAST MODIFIED: 09/15/92   BY: tjs *G035**/
/* REVISION: 7.3      LAST MODIFIED: 11/05/92   BY: afs *G244**/
/* REVISION: 7.3      LAST MODIFIED: 01/15/93   BY: afs *G501**/
/* REVISION: 7.4      LAST MODIFIED: 10/19/93   BY: cdt *H086**/
/* REVISION: 7.4      LAST MODIFIED: 10/19/93   BY: cdt *H184**/
/* REVISION: 7.4      LAST MODIFIED: 09/22/94   BY: jpm *GM78**/
/* REVISION: 7.4      LAST MODIFIED: 10/16/94   BY: dpm *FR95**/
/* REVISION: 7.4      LAST MODIFIED: 11/15/94   BY: qzl *FT43**/
/* REVISION: 8.5      LAST MODIFIED: 03/22/95   BY: jlf *J042**/
/* REVISION: 8.5      LAST MODIFIED: 05/30/96   BY: DAH *J0N2**/
/* REVISION: 8.6      LAST MODIFIED: 09/26/96   BY: svs *K007**/
/* REVISION: 8.6      LAST MODIFIED: 12/31/96   BY: jpm *K03Y**/

/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane */
/* REVISION: 8.6E     LAST MODIFIED: 05/20/98   BY: *K1Q4* Alfred Tan   */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan   */
/* REVISION: 9.1      LAST MODIFIED: 10/01/99   BY: *N014* Patti Gaultney */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00 BY: *N08T* Annasaheb Rahane */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00 BY: *N0KN* myb              */
/* REVISION: EB2 SP3 GUI  LAST MODIFIED: 11/03/03   BY: Joy Huang  *hk-s-015* */

/* ********** Begin Translatable Strings Definitions ********* */

&SCOPED-DEFINE sqlinfrm_i_1 "Promise"
/* MaxLen: Comment: */

&SCOPED-DEFINE sqlinfrm_i_2 "Manual"
/* MaxLen: Comment: */

&SCOPED-DEFINE sqlinfrm_i_3 "Net Price"
/* MaxLen: Comment: */

&SCOPED-DEFINE sqlinfrm_i_4 "Fxd Price"
/* MaxLen: Comment: */

&SCOPED-DEFINE sqlinfrm_i_5 "Discount"
/* MaxLen: Comment: */

&SCOPED-DEFINE sqlinfrm_i_6 "Rsn Lost"
/* MaxLen: Comment: */

&SCOPED-DEFINE sqlinfrm_i_7 "Reprice"
/* MaxLen: Comment: */

&SCOPED-DEFINE sqlinfrm_i_8 "Required"
/* MaxLen: Comment: */

&SCOPED-DEFINE sqlinfrm_i_9 "UM Conv"
/* MaxLen: Comment: */

&SCOPED-DEFINE sqlinfrm_i_10 "Type"
/* MaxLen: Comment: */

/*N014*/ &SCOPED-DEFINE sqlinfrm_i_11 "Desc"
/* MaxLen:9  Comment: Description */

/* ********** End Translatable Strings Definitions ********* */

      FORM /*GUI*/ 
       line
       qod_part
       qod_qty_quot format "->>>>,>>9.9<<<<"
       qod_um
       qod_list_pr  format ">>>,>>>,>>9.99<<<"

/*J042** USE GENERIC DISPLAY FORMAT FOR EITHER DISCOUNT % OR FACTOR
     DEPENDING ON pic_qo_fact
** /*G244*/ qod_disc_pct /* format "->9.99" */  label "Disc%"
** /*FT43* /*G244*/                 format "->>>9.99"  */
** /*FT43*/                 format "->>>>9.99"
**J042*/

/*J042*/ discount   label {&sqlinfrm_i_5} format "->>>9.9<<<"

       qod_price                      label {&sqlinfrm_i_3}
       with frame c clines down width 80 THREE-D /*GUI*/.


       /* SET EXTERNAL LABELS */
       setFrameLabels(frame c:handle).

      /*F356* Added qod_project to frame d, rearranged third colomn */
      /*G035* All colon 45 were colon 39, added qod_fr_list */
      /*G501* Reversed site, location */
      /*H184* Added qod_fix_pr and qod_crt_int */

/*N014* *****************************BEGIN DELETE****************************
 *       form
 *        desc1        colon 15                           qod_acct     colon 64
 * /*GM78*/ /*V8! view-as fill-in size 9 by 1 space(.5)  */
 *                              qod_cc no-label
 * /*GM78*/ /*V8! view-as fill-in size 5 by 1  */
 *        qod_loc      colon 15  qod_site     colon 31
 * /*K03Y*/ /* /*K007*/ qod_bonus  colon 45 label "Bonus" */
 *        qod_dsc_acct colon 64
 * /*GM78*/ /*V8! view-as fill-in size 9 by 1 space(.5)  */
 *                              qod_dsc_cc no-label
 * /*GM78*/ /*V8! view-as fill-in size 5 by 1  */
 * /*J042** qod_serial colon 15  qod_fix_pr   colon 45    qod_project  colon 64**/
 * /*J042*/ qod_serial colon 15  qod_fix_pr   colon 45 label {&sqlinfrm_i_4}
 * /*J042*/                                               qod_project  colon 64
 *        skip                   qod_crt_int  colon 45    qod_type     colon 64
 *                              label {&sqlinfrm_i_10}
 * /*J042*/                      qod_pricing_dt colon 45
 *        qod_rel_chg  colon 15  qod_req_date colon 45
 *                 label {&sqlinfrm_i_8}       qod_um_conv colon 64
 *                              label {&sqlinfrm_i_9}
 *        qod_qty_rel  colon 15  qod_per_date colon 45
 *                 label {&sqlinfrm_i_1}        qod_rsn_lost colon 64
 *                              label {&sqlinfrm_i_6}
 *        skip                   qod_due_date colon 45    qod_taxable  colon 64
 *                              qod_taxc no-label
 *        qod_std_cost colon 15  qod_fr_list  colon 45    qodcmmts    colon 64
 * /*FR95*/ skip(1)
 * /*FR95*   with frame d side-labels width 80. */
 * /*FR95*/  with frame d side-labels width 80 overlay  row 10 .
 *N014* *****************************END DELETE****************************** */
/*N014* *****************************BEGIN ADD******************************  */
         FORM /*GUI*/ 
        /*Row 1========================================================= */
               
 RECT-FRAME       AT ROW 1 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1 COLUMN 3 NO-LABEL VIEW-AS TEXT SIZE-PIXELS 1 BY 1
 SKIP(.1)  /*GUI*/
desc1           colon 10    label {&sqlinfrm_i_11} format "x(18)"
               qod_fr_list     colon 45
               skip
        /*Row 2========================================================= */
               qod_loc         colon 10
               qod_site
               qod_acct        colon 45
                    view-as fill-in size 9 by 1 space(.5)   
               qod_sub                     no-label
                    view-as fill-in size 9 by 1 space(.5)   
               qod_cc                      no-label
                    view-as fill-in size 5 by 1 space(.5)   
               qod_project                 no-label
                    view-as fill-in size 9 by 1 space(.5)   
               skip
        /*Row 3 ========================================================= */
               qod_serial      colon 11
               qod_dsc_acct    colon 45
                    view-as fill-in size 9 by 1 space(.5)   
               qod_dsc_sub                 no-label
                    view-as fill-in size 9 by 1 space(.5)   
               qod_dsc_cc                  no-label
                    view-as fill-in size 5 by 1 space(.5)   
               qod_dsc_project             no-label
                    view-as fill-in size 9 by 1 space(.5)   
               skip
        /*Row 4 ========================================================= */
               qod_rel_chg     colon 15
               qod_type        colon 45    label {&sqlinfrm_i_10}
               skip
        /*Row 5 ========================================================= */
               qod_qty_rel     colon 15
               qod_um_conv     colon 45    label {&sqlinfrm_i_9}
               skip
        /*Row 6 ========================================================= */
/*HK-S-015               qod_std_cost    colon 15*/
               qod_rsn_lost    colon 45    label {&sqlinfrm_i_6}
               skip
        /*Row 7 ========================================================= */
               qod_fix_pr      colon 15    label {&sqlinfrm_i_4}
               qod_taxable     colon 45
               qod_taxc                    no-label
               skip
        /*Row 8 ========================================================= */
               qod_req_date    colon 15    label {&sqlinfrm_i_8}
               qodcmmts        colon 45
               skip
        /*Row 9 ========================================================= */
               qod_per_date    colon 15    label {&sqlinfrm_i_1}
               qod_crt_int     colon 45
               skip
        /*Row 10 ======================================================== */
               qod_due_date    colon 15
               qod_pricing_dt  colon 45
               skip
          SKIP(.4)  /*GUI*/
with frame d side-labels width 80 overlay  row 10  NO-BOX THREE-D /*GUI*/.

 DEFINE VARIABLE F-d-title AS CHARACTER INITIAL "".
 RECT-FRAME-LABEL:SCREEN-VALUE in frame d = F-d-title.
 RECT-FRAME-LABEL:HIDDEN in frame d = yes.
 RECT-FRAME:HEIGHT-PIXELS in frame d =
  FRAME d:HEIGHT-PIXELS - RECT-FRAME:Y in frame d - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME d = FRAME d:WIDTH-CHARS - .5.  /*GUI*/


         /* SET EXTERNAL LABELS */
         setFrameLabels(frame d:handle).
/*N014* *****************************END ADD**************************** */

/*J042** /*H086*/ form
** /*H086*/    qod_due_date  colon 20
** /*H184*/    qod_crt_int   colon 20
** /*H086*/ with frame line_pop overlay side-labels row 12 column 25.
**J042*/

/*J042*/ FORM /*GUI*/ 
/*J042*/    
 RECT-FRAME       AT ROW 1 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1 COLUMN 3 NO-LABEL VIEW-AS TEXT SIZE-PIXELS 1 BY 1
 SKIP(.1)  /*GUI*/
qod_pricing_dt colon 20
/*J042*/    qod_crt_int    colon 20
/*J042*/    reprice_dtl    colon 20 label {&sqlinfrm_i_7}
/*J0N2*/    qod__chr01     colon 20 label {&sqlinfrm_i_2}
/*J042*/  SKIP(.4)  /*GUI*/
with frame line_pop overlay side-labels row 12 column 25 NO-BOX THREE-D /*GUI*/.

 DEFINE VARIABLE F-line_pop-title AS CHARACTER INITIAL "".
 RECT-FRAME-LABEL:SCREEN-VALUE in frame line_pop = F-line_pop-title.
 RECT-FRAME-LABEL:HIDDEN in frame line_pop = yes.
 RECT-FRAME:HEIGHT-PIXELS in frame line_pop =
  FRAME line_pop:HEIGHT-PIXELS - RECT-FRAME:Y in frame line_pop - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME line_pop = FRAME line_pop:WIDTH-CHARS - .5.  /*GUI*/


/* SET EXTERNAL LABELS */
setFrameLabels(frame line_pop:handle).
